home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
AmigActive 10
/
AACD 10.iso
/
AACD
/
Programming
/
AmigaTalk
/
System
/
System.p
< prev
next >
Wrap
Text File
|
2000-05-03
|
11KB
|
318 lines
pTempVar <- <primitive 110 23 >
<primitive 112 pTempVar 1 " new: " \
#( #[ 16r21 16r6A 16r20 16rF3 16rF5] \
#( )) >
<primitive 112 pTempVar 2 " setTerminators: " \
#( #[ 16r30 16r21 16r1A 16rFA 16r03 16rE3 16rF1 16r60 16rF3 16rF5] \
#( 14 )) >
<primitive 112 pTempVar 3 " setFlags: " \
#( #[ 16r30 16r56 16r21 16r1A 16rFA 16r04 16rE3 16rF1 16r68 16rF3 16rF5 \
] \
#( 13 )) >
<primitive 112 pTempVar 4 " setRBufSize: " \
#( #[ 16r30 16r55 16r21 16r1A 16rFA 16r04 16rE3 16rF1 16r67 16rF3 16rF5 \
] \
#( 13 )) >
<primitive 112 pTempVar 5 " setBreakLen: " \
#( #[ 16r30 16r54 16r21 16r1A 16rFA 16r04 16rE3 16rF1 16r66 16rF3 16rF5 \
] \
#( 13 )) >
<primitive 112 pTempVar 6 " setStops: " \
#( #[ 16r30 16r53 16r21 16r1A 16rFA 16r04 16rE3 16rF1 16r64 16rF3 16rF5 \
] \
#( 13 )) >
<primitive 112 pTempVar 7 " setDataSize: " \
#( #[ 16r30 16r52 16r21 16r1A 16rFA 16r04 16rE3 16rF1 16r63 16rF3 16rF5 \
] \
#( 13 )) >
<primitive 112 pTempVar 8 " setParity:status: " \
#( #[ 16r30 16r21 16r22 16r1A 16rFA 16r04 16rE3 16rF2 16rF5] \
#( 15 )) >
<primitive 112 pTempVar 9 " setBaud: " \
#( #[ 16r30 16r50 16r21 16r1A 16rFA 16r04 16rE3 16rF1 16r62 16rF3 16rF5 \
] \
#( 13 )) >
<primitive 112 pTempVar 10 " setSyncType: " \
#( #[ 16r30 16r21 16r1A 16rFA 16r03 16rE3 16rF1 16r69 16rF3 16rF5] \
#( 12 )) >
<primitive 112 pTempVar 11 " clearReadBuffer " \
#( #[ 16r30 16r1A 16rFA 16r02 16rE3 16rF2 16rF5] \
#( 11 )) >
<primitive 112 pTempVar 12 " flush " \
#( #[ 16r30 16r1A 16rFA 16r02 16rE3 16rF2 16rF5] \
#( 10 )) >
<primitive 112 pTempVar 13 " getStatus " \
#( #[ 16r59 16r1A 16rFA 16r02 16rE3 16rF1 16r61 16rF3 16rF5] \
#( )) >
<primitive 112 pTempVar 14 " sendBreakOfDuration: " \
#( #[ 16r58 16r21 16r1A 16rFA 16r03 16rE3 16rF2 16rF5] \
#( )) >
<primitive 112 pTempVar 15 " restart " \
#( #[ 16r57 16r1A 16rFA 16r02 16rE3 16rF2 16rF5] \
#( )) >
<primitive 112 pTempVar 16 " pause " \
#( #[ 16r56 16r1A 16rFA 16r02 16rE3 16rF2 16rF5] \
#( )) >
<primitive 112 pTempVar 17 " reset " \
#( #[ 16r55 16r1A 16rFA 16r02 16rE3 16rF2 16rF5] \
#( )) >
<primitive 112 pTempVar 18 " writeThis: " \
#( #[ 16r54 16r21 16r1A 16rFA 16r03 16rE3 16rF2 16rF5] \
#( )) >
<primitive 112 pTempVar 19 " readSync: " \
#( #[ 16r53 16r21 16r1A 16rFA 16r03 16rE3 16rF3 16rF5] \
#( )) >
<primitive 112 pTempVar 20 " initializeWithTerm: " \
#( #[ 16r52 16r21 16r1A 16rFA 16r03 16rE3 16rF2 16rF5] \
#( )) >
<primitive 112 pTempVar 21 " close " \
#( #[ 16r50 16r15 16r1A 16rFA 16r03 16rE3 16rF2 16rF5] \
#( )) >
<primitive 112 pTempVar 22 " open " \
#( #[ 16r51 16r15 16r1A 16rFA 16r03 16rE3 16rF2 16rF5] \
#( )) >
<primitive 112 pTempVar 23 " setBufferSize: " \
#( #[ 16r21 16r65 16rF5] \
#( )) >
<primitive 98 #SerialDevice \
<primitive 97 #SerialDevice #Device #AmigaTalk:System/SerialDevice.st \
#( #terminators #status #baudrate #dSize #stops #bufferSize #brkLen #rBufSize \
#syncType #serialName ) \
#( #new: #setTerminators: #setFlags: #setRBufSize: #setBreakLen: #setStops: \
#setDataSize: #setParity:status: #setBaud: #setSyncType: #clearReadBuffer #flush #getStatus \
#sendBreakOfDuration: #restart #pause #reset #writeThis: #readSync: #initializeWithTerm: #close \
#open #setBufferSize: ) \
pTempVar 3 5 >>
pTempVar <- <primitive 110 9 >
<primitive 112 pTempVar 1 " write:this: " \
#( #[ 16r20 16r30 16r91 16r01 16rF2 16r5D 16rF3 16rF5] \
#( 'write: devName this: string' #subClassResponsibility: )) >
<primitive 112 pTempVar 2 " update " \
#( #[ 16r20 16r30 16r91 16r01 16rF2 16r5D 16rF3 16rF5] \
#( 'update' #notImplemented: )) >
<primitive 112 pTempVar 3 " start " \
#( #[ 16r20 16r30 16r91 16r01 16rF2 16r5D 16rF3 16rF5] \
#( 'start' #notImplemented: )) >
<primitive 112 pTempVar 4 " stop " \
#( #[ 16r20 16r30 16r91 16r01 16rF2 16r5D 16rF3 16rF5] \
#( 'stop' #notImplemented: )) >
<primitive 112 pTempVar 5 " reset: " \
#( #[ 16r20 16r30 16r91 16r01 16rF2 16r5D 16rF3 16rF5] \
#( 'reset: devName' #subClassResponsibility: )) >
<primitive 112 pTempVar 6 " read: " \
#( #[ 16r20 16r30 16r91 16r01 16rF2 16r5D 16rF3 16rF5] \
#( 'read: devName' #notImplemented: )) >
<primitive 112 pTempVar 7 " invalid " \
#( #[ 16r20 16r30 16r91 16r01 16rF2 16r5D 16rF3 16rF5] \
#( 'invalid' #notImplemented: )) >
<primitive 112 pTempVar 8 " flush: " \
#( #[ 16r20 16r30 16r91 16r01 16rF2 16r5D 16rF3 16rF5] \
#( 'flush: devName' #subClassResponsibility: )) >
<primitive 112 pTempVar 9 " clear " \
#( #[ 16r20 16r30 16r91 16r01 16rF2 16r5D 16rF3 16rF5] \
#( 'clear' #notImplemented: )) >
<primitive 98 #Device \
<primitive 97 #Device #Object #AmigaTalk:System/Device.st \
#( ) \
#( #write:this: #update #start #stop #reset: #read: #invalid #flush: #clear ) \
pTempVar 3 3 >>
pTempVar <- <primitive 110 11 >
<primitive 112 pTempVar 1 " new: " \
#( #[ 16r21 16r60 16r20 16rF3 16rF5] \
#( )) >
<primitive 112 pTempVar 2 " getOpenCount " \
#( #[ 16r52 16r57 16r10 16rFA 16r03 16rBE 16rF3 16rF5] \
#( )) >
<primitive 112 pTempVar 3 " getCheckSum " \
#( #[ 16r52 16r56 16r10 16rFA 16r03 16rBE 16rF3 16rF5] \
#( )) >
<primitive 112 pTempVar 4 " getRevision " \
#( #[ 16r52 16r55 16r10 16rFA 16r03 16rBE 16rF3 16rF5] \
#( )) >
<primitive 112 pTempVar 5 " getFlags " \
#( #[ 16r52 16r53 16r10 16rFA 16r03 16rBE 16rF3 16rF5] \
#( )) >
<primitive 112 pTempVar 6 " getPosSize " \
#( #[ 16r52 16r52 16r10 16rFA 16r03 16rBE 16rF3 16rF5] \
#( )) >
<primitive 112 pTempVar 7 " getNegSize " \
#( #[ 16r52 16r51 16r10 16rFA 16r03 16rBE 16rF3 16rF5] \
#( )) >
<primitive 112 pTempVar 8 " getVersion " \
#( #[ 16r52 16r54 16r10 16rFA 16r03 16rBE 16rF3 16rF5] \
#( )) >
<primitive 112 pTempVar 9 " getIDString " \
#( #[ 16r52 16r50 16r10 16rFA 16r03 16rBE 16rF3 16rF5] \
#( )) >
<primitive 112 pTempVar 10 " close " \
#( #[ 16r50 16r10 16rFA 16r02 16rBE 16rF3 16rF5] \
#( )) >
<primitive 112 pTempVar 11 " openVersion: " \
#( #[ 16r51 16r10 16r21 16rFA 16r03 16rBE 16rF3 16rF5] \
#( )) >
<primitive 98 #Library \
<primitive 97 #Library #Object #AmigaTalk:System/Library.st \
#( #libName ) \
#( #new: #getOpenCount #getCheckSum #getRevision #getFlags #getPosSize \
#getNegSize #getVersion #getIDString #close #openVersion: ) \
pTempVar 2 4 >>
pTempVar <- <primitive 110 23 >
<primitive 112 pTempVar 1 " waitForYPos: " \
#( #[ 16r20 16r80 16r00 16r72 16r22 16r21 16rC9 16rF6 16r08 16r20 16r80 \
16r00 16rF1 16r72 16rF2 16rF9 16r0D 16rF2 16rF5] \
#( #getYPos )) >
<primitive 112 pTempVar 2 " waitForXPos: " \
#( #[ 16r20 16r80 16r00 16r72 16r22 16r21 16rC9 16rF6 16r08 16r20 16r80 \
16r00 16rF1 16r72 16rF2 16rF9 16r0D 16rF2 16rF5] \
#( #getXPos )) >
<primitive 112 pTempVar 3 " waitForQualifier: " \
#( #[ 16r20 16r80 16r00 16r72 16r22 16r21 16rC9 16rF6 16r08 16r20 16r80 \
16r00 16rF1 16r72 16rF2 16rF9 16r0D 16rF2 16rF5] \
#( #getQualifiers )) >
<primitive 112 pTempVar 4 " waitForButton: " \
#( #[ 16r20 16r80 16r00 16r72 16r22 16r21 16rC9 16rF6 16r08 16r20 16r80 \
16r00 16rF1 16r72 16rF2 16rF9 16r0D 16rF2 16rF5] \
#( #getButtonCode )) >
<primitive 112 pTempVar 5 " setControllerType: " \
#( #[ 16r21 16r5A 16rCB 16r21 16r81 16r00 16r53 16rC8 16rF7 16r08 16r58 \
16r10 16r21 16rFA 16r03 16rDF 16rF8 16r03 16rF2 16r31 16rA8 \
16rF2 16rF5] \
#( #& 'newCType parameter out of range (-1 to 3 only)!' )) >
<primitive 112 pTempVar 6 " setYDeltaTransition: " \
#( #[ 16r55 16r10 16r21 16rFA 16r03 16rDF 16rF2 16rF5] \
#( )) >
<primitive 112 pTempVar 7 " setXDeltaTransition: " \
#( #[ 16r54 16r10 16r21 16rFA 16r03 16rDF 16rF2 16rF5] \
#( )) >
<primitive 112 pTempVar 8 " setTimeTransition: " \
#( #[ 16r21 16r50 16rC7 16rF7 16r05 16r30 16rA8 16rF2 16r5D 16rF3 16rF2 \
16r53 16r10 16r21 16rFA 16r03 16rDF 16rF2 16rF5] \
#( 'timeOutValue out of range (S/B >= 0).' )) >
<primitive 112 pTempVar 9 " setKeyTransition: " \
#( #[ 16r21 16r51 16rCB 16r21 16r81 16r00 16r53 16rC8 16rF7 16r08 16r52 \
16r10 16r21 16rFA 16r03 16rDF 16rF8 16r03 16rF2 16r31 16rA8 \
16rF2 16rF5] \
#( #& 'transType parameter out of range (1 to 3 only)!' )) >
<primitive 112 pTempVar 10 " getTriggerYDelta " \
#( #[ 16r05 16r13 16r10 16rFA 16r02 16rDF 16rF3 16rF5] \
#( )) >
<primitive 112 pTempVar 11 " getTriggerXDelta " \
#( #[ 16r05 16r12 16r10 16rFA 16r02 16rDF 16rF3 16rF5] \
#( )) >
<primitive 112 pTempVar 12 " getTriggerTime " \
#( #[ 16r05 16r11 16r10 16rFA 16r02 16rDF 16rF3 16rF5] \
#( )) >
<primitive 112 pTempVar 13 " getTriggerKeys " \
#( #[ 16r05 16r10 16r10 16rFA 16r02 16rDF 16rF3 16rF5] \
#( )) >
<primitive 112 pTempVar 14 " getTimeStamp " \
#( #[ 16r30 16r10 16rFA 16r02 16rDF 16rF3 16rF5] \
#( 15 )) >
<primitive 112 pTempVar 15 " getIEAddress " \
#( #[ 16r30 16r10 16rFA 16r02 16rDF 16rF3 16rF5] \
#( 14 )) >
<primitive 112 pTempVar 16 " getYPos " \
#( #[ 16r30 16r10 16rFA 16r02 16rDF 16rF3 16rF5] \
#( 13 )) >
<primitive 112 pTempVar 17 " getXPos " \
#( #[ 16r30 16r10 16rFA 16r02 16rDF 16rF3 16rF5] \
#( 12 )) >
<primitive 112 pTempVar 18 " getQualifiers " \
#( #[ 16r30 16r10 16rFA 16r02 16rDF 16rF3 16rF5] \
#( 11 )) >
<primitive 112 pTempVar 19 " getButtonCode " \
#( #[ 16r30 16r10 16rFA 16r02 16rDF 16rF3 16rF5] \
#( 10 )) >
<primitive 112 pTempVar 20 " getControllerType " \
#( #[ 16r57 16r10 16rFA 16r02 16rDF 16rF3 16rF5] \
#( )) >
<primitive 112 pTempVar 21 " clearGamePortBuffer " \
#( #[ 16r56 16r10 16rFA 16r02 16rDF 16rF2 16rF5] \
#( )) >
<primitive 112 pTempVar 22 " closeGamePort " \
#( #[ 16r50 16r10 16rFA 16r02 16rDF 16rF2 16rF5] \
#( )) >
<primitive 112 pTempVar 23 " openGamePort:named: " \
#( #[ 16r51 16r22 16r21 16rFA 16r03 16rDF 16rF2 16r22 16r60 16r20 16rF3 \
16rF5] \
#( )) >
<primitive 98 #GamePort \
<primitive 97 #GamePort #Device #AmigaTalk:System/GamePort.st \
#( #pname ) \
#( #waitForYPos: #waitForXPos: #waitForQualifier: #waitForButton: \
#setControllerType: #setYDeltaTransition: #setXDeltaTransition: #setTimeTransition: \
#setKeyTransition: #getTriggerYDelta #getTriggerXDelta #getTriggerTime #getTriggerKeys \
#getTimeStamp #getIEAddress #getYPos #getXPos #getQualifiers #getButtonCode \
#getControllerType #clearGamePortBuffer #closeGamePort #openGamePort:named: ) \
pTempVar 3 6 >>